Armageddon - Interactive Preview/Interactive Preview: Armageddon.iso/pc/quizgame.dxr/00075_Play Again.ls

Text File | 1998-05-15 | 1.7 KB | 67 lines

global gTime, gPlayList, gQuestionList, gcheckQ, n, gQuitB, gFinal, gPauseState, gQ1List, gQ2List, gQ3List, gBuzzState, gWhoA, g1stTimeout, g2ndTimeout, gAnswer, gP1Money, gP2Money, gP3Money, gOldtimer, gHowLong, gPauseB

on mouseEnter me
  set the member of sprite the currentSpriteNum to "PLAY AGAIN-ON ROLLOVER"
end

on mouseLeave me
  set the member of sprite the currentSpriteNum to "PLAY AGAIN-NORMAL"
end

on mouseDown me
  set the member of sprite the currentSpriteNum to "PLAY AGAIN-ON MOUSEDOWN"
end

on mouseUp me
  if rollOver(the clickOn) then
    set the member of sprite the currentSpriteNum to "PLAY AGAIN-NORMAL"
    puppetSound(1, "soft metal")
    repeat with x = 1 to 120
      puppetSprite(x, 0)
    end repeat
    set g1stTimeout to 0
    set g2ndTimeout to 0
    set gBuzzState to 0
    set gcheckQ to 0
    set gWhoA to 0
    set gAnswer to 0
    set gOldtimer to 0
    set gPlayList to []
    put EMPTY into field 161
    set gQuestionList to []
    repeat with x = 14 to 25
      add(gQuestionList, x)
      updateStage()
    end repeat
    set gPauseState to 0
    set gPauseB to 0
    set gQuitB to 0
    set gOK to 0
    set gFinal to 0
    set gQ1List to []
    set gQ2List to []
    set gQ3List to []
    set gP1Money to 0
    set gP2Money to 0
    set gP3Money to 0
    set gHowLong to 0
    put gP1Money into field 200
    put gP2Money into field 201
    put gP3Money into field 202
    repeat with x = 260 to 265
      add(gQ1List, x)
      updateStage()
    end repeat
    repeat with x = 266 to 271
      add(gQ2List, x)
      updateStage()
    end repeat
    repeat with x = 272 to 278
      add(gQ3List, x)
      updateStage()
    end repeat
    updateStage()
    go(1)
  end if
end